home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution8.14 < prev    next >
Text File  |  2007-02-28  |  1KB  |  34 lines
  1. 0010 DIM TEXT$ OF 500, CH$ OF 1, BUF$ OF 80
  2. 0020 TEXT$:=" "
  3. 0030 FOR LINE:=1 TO 6 DO
  4. 0040 READ BUF$
  5. 0050 TEXT$:=TEXT$+BUF$
  6. 0060 ENDFOR LINE
  7. 0070 COUNT:=0; POINT:=1; DOTCOUNT:=0; LETTERCOUNT:=0
  8. 0080 CH$:=TEXT$(POINT)
  9. 0090 WHILE CH$<>"*" DO
  10. 0100 WORD:=FALSE
  11. 0110 WHILE CH$<>"*" AND (CH$<"A" OR CH$>"Z") DO
  12. 0120 IF CH$="." THEN DOTCOUNT:=DOTCOUNT+1
  13. 0130 POINT:=POINT+1
  14. 0140 CH$:=TEXT$(POINT)
  15. 0150 ENDWHILE 
  16. 0160 WHILE CH$>="A" AND CH$<="Z" DO
  17. 0170 POINT:=POINT+1
  18. 0180 CH$:=TEXT$(POINT)
  19. 0190 LETTERCOUNT:=LETTERCOUNT+1
  20. 0200 WORD:=TRUE
  21. 0210 ENDWHILE 
  22. 0220 IF WORD THEN COUNT:=COUNT+1
  23. 0230 ENDWHILE 
  24. 0240 AVSENT:=COUNT/DOTCOUNT
  25. 0250 AVWORD:=LETTERCOUNT/COUNT
  26. 0260 ARI:=.5*AVSENT+4.71*AVWORD-15.43
  27. 0270 PRINT AVSENT;AVWORD;ARI
  28. 0280 DATA "THE ICE TALONS SET HARDER IN THE LAND."
  29. 0290 DATA "NO TWITTER OF FINCH OR LINNET WAS HEARD"
  30. 0300 DATA "ON THE BURROWS, FOR THOSE WHICH REMAINED"
  31. 0310 DATA "WERE DEAD. VAINLY THE LINNETS HAD SOUGHT"
  32. 0320 DATA "THE SEEDS LOCKED IN THE PLANTS OF THE"
  33. 0330 DATA "GLASSWORT. EVEN CROWS DIED OF STARVATION.*"
  34.